<script>on mouseUpset numberFormat to <0.000000>--Calculate Sin Aget sin(card field "angle A"*(pi/180))put it into card field "sin A"--Calculate Sin Bget sin(card field "angle B"*(pi/180))put it into card field "sin B"--Calculate Sin Cget sin(card field "angle C"*(pi/180))put it into card field "sin C"--Calculate Angle Cget 180-(card field "angle A"+card field "angle B")put it into card field "angle C"--Calculate Side bget (card field "side a"*card field "sin B")/card field "sin A"put it into card field "side b"--Calculate Side cget (card field "side a"*card field "sin C")/card field "sin A"put it into card field "side c"--Calculate Areaget (card field "side a"+card field "side b"+card field "side c")/2put it into mem9get sqrt(mem9*(mem9-card field "side a")*(mem9-card field "side b")¬*(mem9-card field "side c"))put it into bkgnd field "Area"--Calculate Perimeterget card field "side a"+card field "side b"+card field "side c"put it into bkgnd field "Perimeter"end mouseUp</script>
</card>
card_7595.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset numberFormat to <0.000000>--Calculate sget card field "Side a"put it into mem1get card field "Side b"put it into mem2get card field "Side c"put it into mem3get (mem1+mem2+mem3)/2put it into mem4put it into card field "s"--Calculate Kget sqrt(((mem4-mem1)*(mem4-mem2)*(mem4-mem3))/mem4)put it into mem5put it into card field "K"--Calculate Angle Aget atan(mem5/(mem4-mem1))*360/piput it into mem6put it into card field "angle A"--Calculate Angle Bget atan(mem5/(mem4-mem2))*360/piput it into mem7put it into card field "angle B"--Calculate Angle Cget atan(mem5/(mem4-mem3))*360/piput it into mem8put it into card field "angle C"--Calculate Areaget (card field "side a"+card field "side b"+card field "side c")/2put it into mem9get sqrt(mem9*(mem9-card field "side a")*(mem9-card field "side b")¬*(mem9-card field "side c"))put it into bkgnd field "Area"--Calculate Perimeterget card field "side a"+card field "side b"+card field "side c"put it into bkgnd field "Perimeter"end mouseUp</script>
</card>
card_5791.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset numberFormat to <0.000000>--Calculate Angle Bget bkgnd field "angle C"put it into mem1get card field "angle A"put it into mem2get mem1-mem2put it into mem3put it into card field "angle B"--Calculate Tan Aget tan(mem2*(pi/180))put it into mem4put it into card field "tan A"--Calculate Sin Aget sin(mem2*(pi/180))put it into mem5put it into card field "sin A"--Calculate Cos Aget mem5/mem4put it into mem6put it into card field "cos A"--Calculate Side bget card field "side a"put it into mem7get mem7*(mem6/mem5)put it into mem8put it into card field "side b"--Calculate Side cget sqrt(mem7^2+mem8^2)put it into card field "side c"--Calculate Areaget card field "side a"*card field "side b"/2put it into bkgnd field "Area"--Calculate Perimeterget card field "side a"+card field "side b"+card field "side c"put it into bkgnd field "Perimeter"end mouseUp</script>
</card>
card_4467.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUp--Calculate Hypotenuseset numberFormat to <0.000000>put card field "side a"^2 into mem1add card field "side b"^2 to mem1put sqrt(mem1) into card field "side c"--Calculate Tan Aget card field "side a"put it into mem3get card field "side b"put it into mem4get mem3/mem4put it into mem5put it into card field "tan A"--Calculate Sin Aget card field "side a"put it into mem6get card field "side c"put it into mem7get mem6/mem7put it into mem8put it into card field "sin A"--Calculate Cos Aget mem8/mem5put it into mem9put it into card field "cos A"--Calculate Angle Aget atan((card field "side a")/(card field "side b"))*(180/pi)put it into card field "angle A"--Calculate Angle Bget bkgnd field "angle C"-card field "angle A"put it into card field "angle B"--Calculate Areaget card field "side a"*card field "side b"/2put it into bkgnd field "Area"--Calculate Perimeterget card field "side a"+card field "side b"+card field "side c"put it into bkgnd field "Perimeter"end mouseUp</script>
</card>
card_3762.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpif visible of card field "Tell Me..." then hide card field "Tell Me..."else show card field "Tell Me..."end mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>50</left>
<top>133</top>
<right>466</right>
<bottom>335</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Tell Me...</name>
<script>on mouseUphide card field "Tell Me..."end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>2</id>
<text>------------------------------------------------------ SHAREWARE AUTHORS, INC. owns the exclusive right to the sale and distribution of this program on CD-ROM and all other high capacity (over 2 MB) media. All other such distribution is strictly prohibited.------------------------------------------------------ trigHypeΓäó is accurate to 6 decimal places, which should be sufficient for any practical purpose (by PRACTICAL, I mean things like carpentry, drafting, figuring heights and distances of buildings, trees, and such). Using trigHypeΓäó for interstellar navigation would be a serious mistake unless you want to intentionally throw off the Ayatollah's space voyage to one of the Outer Planets. For instance, if you should see a calculated field that shows an answer such as "15.999998," or "16.000005," regard it as rounded to "16." Formatting the fields to as many as 15 decimal places to obtain super-accuracy would only confuse the eye and stretch the fields all the way out to Timbuktu !</text>